home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / encorsrc.lha / encore_sources / sys / unix_sys5.t < prev    next >
Text File  |  1988-05-02  |  2KB  |  51 lines
  1. (herald sys5 (env tsys))
  2.  
  3.  
  4. (define-constant file-mode/in     #o0)
  5. (define-constant file-mode/out    #o1401)
  6. (define-constant file-mode/append #o411)
  7.  
  8.  
  9. (define-constant number-of-signals 23)   
  10.  
  11.  
  12. ;;; handler-types (Htype): A = asynchronous, E = exception, D = default,
  13. ;;; I = ignore
  14. ;;; (sig# handler-type handler description)
  15.  
  16. (define *signals*
  17.   '(( 1   E    non-continuable  "hangup")
  18.  ;   ( 2   A    sigint-handler    "interrupt")
  19.  ;   ( 3   A    siquit-handler    "quit")
  20.     ( 4   E    non-continuable  "illegal instruction")
  21.     ( 5   E    non-continuable  "trace trap")
  22.     ( 6   E    non-continuable  "software generated")
  23.     ( 7   E    non-continuable  "software generated")
  24.     ( 8   E    non-continuable  "floating point exception")
  25.  ;   ( 9   D    default          "kill")
  26.     (10   E    non-continuable  "bus error")
  27.     (11   E    non-continuable  "segmentation violation")
  28.     (12   E    non-continuable  "bad argument to system call")
  29.     (13   E    non-continuable  "write on a pipe with no one to read it")
  30.  ;   (14   D    default          "alarm clock")
  31.  ;   (15   A    sigterm-handler   "software termination signal")
  32.  ;   (16   D    default          "user defined signal 1")
  33.  ;   (17   D    default          "user defined signal 2")
  34.  ;   (18   D    default          "death of a child")
  35.  ;   (19   D    default          "power fail")
  36.  ;   (20   D    default          "virtual timer alarm")
  37.  ;   (21   D    default          "profiling timer alarm")
  38.  ;   (22   D    default          "reserved for future use")
  39.  ;   (23   D    default          "A window change or mouse signal")
  40.   ))
  41.  
  42. (define-constant %%SIGINT     2)
  43. (define-constant %%SIGQUIT    3)
  44. (define-constant %%SIGTERM    15)
  45.  
  46. (define-foreign csh (csh) rep/undefined)
  47.  
  48. (define-unimplemented (make-foreign-procedure sym))
  49. (define-unimplemented (load-foreign file))
  50.  
  51. (define (initialize-local-system) nil)